{
  ============================================================================
  Akeeba Remote Control
  A GUI for the Akeeba Backup JSON API
  Copyright (C)2008-2010 Nicholas K. Dionysopoulos / Akeeba Developers

  Akeeba Remote Control is free software: you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  (at your option) any later version.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program.  If not, see <http://www.gnu.org/licenses/>.
  ============================================================================
}

unit uaboutform;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls, Buttons;

type

  { TfrmAbout }

  TfrmAbout = class(TForm)
     btnOK: TBitBtn;
     imgLogo: TImage;
     lblCopyrightNotice: TLabel;
     lblName: TLabel;
     lblBuild: TLabel;
     lblVersion: TLabel;
     procedure btnOKClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  frmAbout: TfrmAbout;

implementation

uses
   umainform;

{ TfrmAbout }

procedure TfrmAbout.FormShow(Sender: TObject);
begin
   frmAbout.Caption := frmAbout.Caption + ' ' + frmMainForm.Caption;
end;

procedure TfrmAbout.btnOKClick(Sender: TObject);
begin
   Close;
end;

initialization
  {$I uaboutform.lrs}

end.

